home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 001-025 / disk_013 / spell.bas < prev    next >
BASIC Source File  |  1992-05-06  |  2KB  |  51 lines
  1. 5     REM WRITTEN BY ROBERT BENEDICT 75205,112
  2. 10    DIM STOP%(12) : FONT 2
  3. 20    D$="0123456789+=|"
  4. 30    FOR J=0 TO 11: READ STOP%(J): NEXT J
  5. 40    DATA 246,143,254,143,258,150,254,157,246,157,242,150
  6. 50    SCNCLR
  7. 60    PENA 4 : PENO 2
  8. 70    OUTLINE 1
  9. 80    MAT AREA 6,STOP%
  10. 90    CIRCLE(50,150),8,.9
  11. 100   CIRCLE(50,153),3: CIRCLE(47,147),2: CIRCLE(53,147),2
  12. 110   PENA 6
  13. 120   CIRCLE(150,150),7
  14. 130   PAINT(150,150)
  15. 140   OUTLINE 0
  16. 150   PENA 0: AREA(150,150 TO 140,140 TO 140,160)
  17. 160   A$=""
  18. 170   PRINT " "
  19. 180   PRINT " "
  20. 190   PRINT " "
  21. 200   PRINT " A B C D E F G H I J K L M"
  22. 210   PRINT " "
  23. 220   PRINT " N O P Q R S T U V W X Y Z"
  24. 225   PRINT " "
  25. 230   PRINT" 0 1 2 3 4 5 6 7 8 9 + = |"
  26. 250   P%=1:A$="":PRINT AT (1,12);SPC(32)
  27. 260   SLEEP 100000: ASK MOUSE X%,Y%,B%
  28. 270   IF B% = 0 THEN GOTO 260
  29. 280   IF ABS(Y%-150) > 8 THEN GOTO 340
  30. 290   IF ABS(X%-250) < 8 THEN FONT 0: END
  31. 300   IF ABS(X%-150) > 8 THEN GOTO 330
  32. 310   P%=P%-1: PRINT AT (P%+1,12);" "
  33. 320   A$=LEFT$(A$,P%-1)
  34. 330   IF ABS(X%-50) < 8 THEN GOTO 440
  35. 340   IF X% > 208 THEN GOTO 260
  36. 350   IF ABS(Y%-31) > 8 THEN  GOTO 380
  37. 360   X%=(X%-15)/20:P%=P%+1:C$=CHR$(X%+78)
  38. 370   GOTO 470
  39. 380   IF ABS(Y%-49) > 8 THEN 410
  40. 390   X%=(X%-15)/20: P%=P%+1: C$=CHR$(X%+78)
  41. 400   GOTO 470
  42. 410   IF ABS(Y%-67) > 8 THEN GOTO 260
  43. 420   X%=(X%-15)/20:P%=P%+1:C$=MID$(D$,X%+1,1)
  44. 430   GOTO 470
  45. 440   T$=TRANSLATE$(A$)
  46. 450   I%=NARRATE(T$)
  47. 460   GOTO 250
  48. 470   A$=A$+C$: T$=TRANSLATE$(C$): PRINT AT (P%,12);C$
  49. 480   IF C$="A" THEN T$="EY5/H"
  50. 490   I%=NARRATE(T$): GOTO 260
  51.